home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1997 July / PC Pro July 1997.iso / essentia.ls / INTERNET / 32bit / AMEOL95 / FTPMGET.SC_ / FTPMGET.SC
Encoding:
Text File  |  1995-01-16  |  1.8 KB  |  72 lines
  1. REM FTPMGET.SCR v1.21 "Get FTP files from a site to ameol\download"
  2. REM Contributed by mentha@cix
  3. REM Ameol script to obtain files from a user-specified directory on an
  4. REM arbitrary anonymous ftp site. When run, you need to specify:-
  5. REM The files are put in your Ameol download directory.
  6. REM 1. the ftp site name (eg world.std.com)
  7. REM 2. the file directory of the ftp site (eg /pub)
  8. REM 3. the ftp site's filenames.
  9. REM Modified 9/94 to use DOSSIFY
  10. REM +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  11. status "Requesting files from FTP Site..."
  12. put "run internet"
  13. if waitfor( "M:", "ip>" ) == 1
  14. put "ftp %s('Get Files from FTP Site','Enter FTP Site Name:')"
  15. if waitfor("ftp>","):")==0
  16.  status "FTP connection failed."
  17.  put "quit"
  18.  waitfor "ip>"
  19.  put "quit"
  20.  waitfor "M:"
  21.  status ""
  22.  end
  23. endif
  24. REM Connection successful...
  25. put "anonymous"
  26. if waitfor("ftp> ","assword:")==0
  27.  status "FTP site terminated connection."
  28.  put "quit"
  29.  waitfor "ip>"
  30.  put "quit"
  31.  waitfor "M:"
  32.  status ""
  33.  end
  34. endif
  35. putnocr name
  36. put "@cix.compulink.co.uk"
  37. waitfor "ftp>"
  38. put "prompt"
  39. waitfor "ftp>"
  40. put "binary"
  41. waitfor "ftp>"
  42. put "cd %s('Get Files from FTP Site','Specify file directory:')"
  43. waitfor "ftp>"
  44. status "Downloading files from Site to Cix..."
  45. put "mget %s('Get Files from FTP Site','List file(s) to obtain, separated by a space:\n(Wildcards * and ? are usually permitted)')"
  46. waitfor "ftp>"
  47. put "quit"
  48. waitfor "ip>"
  49. put "dir"
  50. if waitfor("ip> ","              ^M^J ")==0
  51.  status "No FTP files to download."
  52.  put "quit"
  53.  waitfor "M:"
  54.  status ""
  55.  end
  56. endif
  57. REM mget successful...
  58. waitfor "ip>"
  59. put "dossify"
  60. waitfor "ip>"
  61. status "Receiving files from Cix..."
  62. put "send *"
  63. pause 200
  64. download ""
  65. status "FTP files received to ameol\download"
  66. put "erase *"
  67. waitfor "ip>"
  68. put "quit"
  69. waitfor "M:"
  70. endif
  71. status ""
  72. end